home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / PROGRAMM / DB_CLIPP / 1159.ZIP / DATABACK.PRG < prev    next >
Text File  |  1986-07-22  |  2KB  |  45 lines

  1. N=VAL(NCHR)
  2. DO CASE
  3.  CASE N=1
  4.   RUN FASTBACK A: DATA1.DBF DATA1SN.* DATA1TV.* DATAOPTN.DBF DATANAME.MEM
  5.  CASE N=2
  6.   RUN FASTBACK A: DATA2.DBF DATA2SN.* DATA2TV.* DATAOPTN.DBF DATANAME.MEM
  7.  CASE N=3
  8.   RUN FASTBACK A: DATA3.DBF DATA3TV.* DATA3SN.* DATAOPTN.DBF DATANAME.MEM
  9.  CASE N=4
  10.   RUN FASTBACK A: DATA4.DBF DATA4TV.* DATA4SN.* DATAOPTN.DBF DATANAME.MEM
  11.  CASE N=5
  12.   RUN FASTBACK A: DATA5.DBF DATA5TV.* DATA5SN.* DATAOPTN.DBF DATANAME.MEM
  13.  CASE N=6
  14.   RUN FASTBACK A: DATA6.DBF DATA6TV.* DATA6SN.* DATAOPTN.DBF DATANAME.MEM
  15.  CASE N=7
  16.   RUN FASTBACK A: DATA7.DBF DATA7TV.* DATA7SN.* DATAOPTN.DBF DATANAME.MEM
  17.  CASE N=8
  18.   RUN FASTBACK A: DATA8.DBF DATA8TV.* DATA8SN.* DATAOPTN.DBF DATANAME.MEM
  19.  CASE N=9
  20.   RUN FASTBACK A: DATA9.DBF DATA9TV.* DATA9SN.* DATAOPTN.DBF DATANAME.MEM
  21.  CASE N=10
  22.   RUN FASTBACK A: DATA10.DBF DATA10TV.* DATA10SN.* DATAOPTN.DBF DATANAME.MEM
  23.  CASE N=11
  24.   RUN FASTBACK A: DATA11.DBF DATA11TV.* DATA11SN.* DATAOPTN.DBF DATANAME.MEM
  25.  CASE N=12
  26.   RUN FASTBACK A: DATA12.DBF DATA12TV.* DATA12SN.* DATAOPTN.DBF DATANAME.MEM
  27.  CASE N=13
  28.   RUN FASTBACK A: DATA13.DBF DATA13TV.* DATA13SN.* DATAOPTN.DBF DATANAME.MEM
  29.  CASE N=14
  30.   RUN FASTBACK A: DATA14.DBF DATA14TV.* DATA14SN.* DATAOPTN.DBF DATANAME.MEM
  31.  CASE N=15
  32.   RUN FASTBACK A: DATA15.DBF DATA15TV.* DATA15SN.* DATAOPTN.DBF DATANAME.MEM
  33.  CASE N=16
  34.   RUN FASTBACK A: DATA16.DBF DATA16TV.* DATA16SN.* DATAOPTN.DBF DATANAME.MEM
  35.  CASE N=17
  36.   RUN FASTBACK A: DATA17.DBF DATA17TV.* DATA17SN.* DATAOPTN.DBF DATANAME.MEM
  37.  CASE N=18
  38.   RUN FASTBACK A: DATA18.DBF DATA18TV.* DATA18SN.* DATAOPTN.DBF DATANAME.MEM
  39.  CASE N=19
  40.   RUN FASTBACK A: DATA19.DBF DATA19TV.* DATA19SN.* DATAOPTN.DBF DATANAME.MEM
  41.  CASE N=20
  42.   RUN FASTBACK A: DATA20.DBF DATA20TV.* DATA20SN.* DATAOPTN.DBF DATANAME.MEM
  43. ENDCASE
  44. RETURN
  45.